home *** CD-ROM | disk | FTP | other *** search
/ Best Tools for JAVA / Best Tools for JAVA.iso / VIEWERS / VSVIEW / VSVIEW.ZIP / FFUTURE.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-11-03  |  2.7 KB  |  84 lines
  1. VERSION 2.00
  2. Begin Form ffuture 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "New Tools"
  5.    ClientHeight    =   1530
  6.    ClientLeft      =   1605
  7.    ClientTop       =   2175
  8.    ClientWidth     =   5925
  9.    Height          =   2025
  10.    Left            =   1500
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   1530
  13.    ScaleWidth      =   5925
  14.    Top             =   1785
  15.    Width           =   6135
  16.    Begin vsInForm VSInForm1 
  17.       BarColor        =   &H00800000&
  18.       BarColorInactive=   &H00800000&
  19.       BarHeight       =   25
  20.       BarStyle        =   2  'NoBorder
  21.       ButtonsRight    =   3  '3
  22.       CapAlign        =   1  'Left Center
  23.       CapColor        =   &H00FFFFFF&
  24.       CapColorInactive=   &H00FFFFFF&
  25.       Caption         =   "   New Tools"
  26.       ConvInfo        =   FFUTURE.FRX:0000
  27.       FontBold        =   -1  'True
  28.       FontItalic      =   0   'False
  29.       FontName        =   "MS Sans Serif"
  30.       FontSize        =   9.75
  31.       FontStrikethru  =   0   'False
  32.       FontUnderline   =   0   'False
  33.       FrameButtons    =   0   'False
  34.       FrameColor      =   &H00C0C0C0&
  35.       FrameColorInactive=   &H00C0C0C0&
  36.       FrameCorners    =   0   'False
  37.       FrameStyle      =   3  'Raised Form
  38.       FrameWidth      =   8
  39.       Left            =   5400
  40.       MinHeight       =   2300
  41.       MinWidth        =   5600
  42.       PictLeft0       =   FFUTURE.FRX:000B
  43.       PictRight0      =   FFUTURE.FRX:015D
  44.       PictRight1      =   FFUTURE.FRX:022F
  45.       PictRight2      =   FFUTURE.FRX:0309
  46.       Top             =   960
  47.    End
  48.    Begin Label Label1 
  49.       BackColor       =   &H0080FFFF&
  50.       BackStyle       =   0  'Transparent
  51.       Caption         =   "Create forms that look the same way in 16 and 32 bits by customizing the form icons with VSINFORM"
  52.       FontBold        =   -1  'True
  53.       FontItalic      =   0   'False
  54.       FontName        =   "MS Sans Serif"
  55.       FontSize        =   13.5
  56.       FontStrikethru  =   0   'False
  57.       FontUnderline   =   0   'False
  58.       Height          =   1170
  59.       Left            =   210
  60.       TabIndex        =   0
  61.       Top             =   105
  62.       Width           =   5055
  63.    End
  64. Option Explicit
  65. Sub Form_Load ()
  66.   VSInform1.CustomFrame = True
  67. End Sub
  68. Sub VSInForm1_ClickRButton (Button As Integer)
  69.     Select Case Button
  70.         Case 0: Unload Me
  71.         Case 1: vsInform1_DblClickCaption
  72.         Case 2: Me.WindowState = 1 ' minimize
  73.     End Select
  74. End Sub
  75. Sub vsInform1_DblClickCaption ()
  76.   ' maximize if normal
  77.   If WindowState = 0 Then
  78.     WindowState = 2
  79.   ' restore if maximized
  80.   ElseIf WindowState = 2 Then
  81.     WindowState = 0
  82.   End If
  83. End Sub
  84.